home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
XSETATT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-06
|
526b
|
26 lines
{$IBoDecl}
{$ISetAtt}
{$IPutStr}
var
j, Att : integer;
BEGIN
ClrScr;
for i := 1 to 6 do
for j := 1 to 20 do
PutStr (h,#04 +#04 +#04 , 1+(j-1)*4, 7-i, 14);
repeat
PutStr (h, 'Enter attribute value,'+
' 0-255 (Out of Range quits) ',
1,10,14);
ClrEol;
read(att);
if (att >= 0) and (att <= 255) then
for i := 1 to 20 do
SetAtt (1+(i-1)*4,1,3+(i-1)*4,6,att);
until (att < 0) or (att > 255);
END.